home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / shareware / gigaguide / steuerung < prev    next >
AmigaDOS Script File  |  1978-03-20  |  1KB  |  64 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. set binfo        1
  14. set bcopy        1
  15.  
  16.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  17.     set nummer 0
  18.     if $binfo EQ 1
  19.          echo >>t:tmpsteuerung " Info" NOLINE
  20.          set nummer `eval $nummer + 1`
  21.          set ninfo $nummer
  22.     endif
  23.     if $bcopy EQ 1
  24.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  25.          set nummer `eval $nummer + 1`
  26.          set ncopy $nummer
  27.     endif
  28.     if "[param]" EQ ""
  29.         echo >>t:tmpsteuerung " Ende" NOLINE
  30.         execute >nil: t:tmpsteuerung
  31.         delete >nil: t:tmpsteuerung
  32.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  33.         if $reqerg[$$] EQ 0
  34.             skip Ende
  35.         endif
  36.     endif
  37.     if $reqerg[$$] EQ $ninfo
  38.         set vinfo 1
  39.     endif
  40.     if $reqerg[$$] EQ $ncopy
  41.         set vcopy 1
  42.     endif
  43. endif
  44.  
  45. if $vinfo EQ 1
  46. ;>>>>>>>> Hier Infotext eintragen
  47.     :c/Metatool :shareware/GigaGuide/GigaGuide.readme FT=TEXT
  48. endif
  49. if $vcopy EQ 1
  50.     execute :c/Verzeichniskopieren ":shareware/GigaGuide/" "GigaGuide" 45056
  51. endif
  52.  
  53. unset binfo
  54. unset vinfo
  55. unset ninfo
  56. unset bcopy
  57. unset vcopy
  58. unset ncopy
  59. if "[param]" EQ ""
  60.     execute Steuerung
  61. endif
  62. LAB Ende
  63. unsetenv reqerg[$$]
  64.